home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / demos / 139 / genie.ap < prev    next >
Encoding:
Text File  |  1988-02-22  |  1.1 KB  |  31 lines
  1. clear
  2. |
  3. | this is a sample autopilot program for logging on to Genie
  4. |___________________________
  5. trace on                    |
  6.                             | show what's happening
  7. Print "Logging on to Genie..."
  8.                             |
  9. IF connect                  |   see if connected 
  10.     Print " at "            |
  11.     Print gettime           |   show time
  12.     Print "~~"              |   couple of returns
  13.     Flush 60                |   clear junk for a second
  14.     Printm "HHH"            |   wake up Genie
  15.     ok=Wait 15 "U#="        |   wait for initial prompt
  16.     IF not ok               |
  17.         GOTO nologin        |
  18.     ENDIF                   |
  19.     Printm "^Rxxx12345,password,475,1~" 
  20.                             |   send the account number, goto messages
  21.     Flush 60                |
  22.     Print "Connected to Genie!~"
  23. ELSE                        | tried too many times
  24. _nologin                    |
  25.     Print "~Could not connect to Genie!"
  26.     QUIT                    |   quit the program
  27. ENDIF                       |
  28.                             |
  29.                             | continue with other things here
  30. QUIT
  31.